home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / _archvrs / amiga / pplib.lzh / PPLib / oberoninterface / Example.mod next >
Text File  |  1991-04-08  |  2KB  |  55 lines
  1. (*********************************
  2. *                                *
  3. *   powerpacker.library V35      *
  4. *                                *
  5. *   Release 2.0                  *
  6. *                                *
  7. *   (c) Mar 1991 Nico Franτois   *
  8. *                                *
  9. *   Example.mod                  *
  10. *                                *
  11. *   This source is public domain *
  12. *   in all respects.             *
  13. *                                *
  14. *********************************)
  15.  
  16. MODULE Example;
  17.  
  18. IMPORT
  19.    pp: PowerPacker, e: Exec, io;
  20. CONST
  21.    file = "testfile";
  22. VAR
  23.    filestart: e.ADDRESS;
  24.    filelen: LONGINT;
  25.    err: LONGINT;
  26. BEGIN
  27.    filestart := NIL;
  28.    io.WriteString ("Loading file...\n");
  29.  
  30.    err := pp.LoadData (file, pp.DecrPoint, LONGSET {}, filestart, filelen, NIL);
  31.    IF err # pp.LoadOk THEN
  32.       CASE err OF
  33.       | pp.ReadErr: io.WriteString ("Error loading text file !\n");
  34.       | pp.NoMemory: io.WriteString ("No memory to decrunch file !\n");
  35.       | pp.PassErr: io.WriteString ("Incorrect password, loading aborted !\n");
  36.       | pp.OpenErr: io.WriteString ("Can't open file !\n");
  37.       | pp.UnknownPP: io.WriteString ("Crunched with unknown PP !\n");
  38.       ELSE
  39.          io.WriteString ("Unknown error !\n");
  40.       END; (* CASE *)
  41.    ELSE
  42.       io.WriteString ("file in memory, using it...\n");
  43.  
  44.       (* file is loaded at 'filestart' and can now be used *)
  45.  
  46.       (* ... *)
  47.  
  48.       io.WriteString ("done, freeing file...\n");
  49.    END; (* IF *)
  50. CLOSE
  51.    IF filestart # NIL THEN e.FreeMem (filestart, filelen); filestart := NIL END;
  52.  
  53.    io.WriteString ("exiting.\n");
  54. END Example.
  55.